home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / gcc / ixemul_src.lha / ixemul-41.0 / library / ix_startup.c < prev    next >
C/C++ Source or Header  |  1995-05-28  |  4KB  |  138 lines
  1. /*
  2.  *  This file is part of ixemul.library for the Amiga.
  3.  *  Copyright (C) 1991, 1992  Markus M. Wild
  4.  *  Portions Copyright (C) 1994 Rafael W. Luebbert
  5.  *
  6.  *  This library is free software; you can redistribute it and/or
  7.  *  modify it under the terms of the GNU Library General Public
  8.  *  License as published by the Free Software Foundation; either
  9.  *  version 2 of the License, or (at your option) any later version.
  10.  *
  11.  *  This library is distributed in the hope that it will be useful,
  12.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14.  *  Library General Public License for more details.
  15.  *
  16.  *  You should have received a copy of the GNU Library General Public
  17.  *  License along with this library; if not, write to the Free
  18.  *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  *
  20.  *  $Id: ix_startup.c,v 1.5 1994/06/19 15:13:22 rluebbert Exp $
  21.  *
  22.  *  $Log: ix_startup.c,v $
  23.  *  Revision 1.5  1994/06/19  15:13:22  rluebbert
  24.  *  *** empty log message ***
  25.  *
  26.  *  Revision 1.3  1992/08/09  20:55:51  amiga
  27.  *  import sysbase
  28.  *
  29.  *  Revision 1.2  1992/07/04  19:18:21  mwild
  30.  *  remove SIGWINCH handler before returning
  31.  *
  32.  * Revision 1.1  1992/05/14  19:55:40  mwild
  33.  * Initial revision
  34.  *
  35.  */
  36.  
  37. #define KERNEL
  38. #include "ixemul.h"
  39. #include "kprintf.h"
  40.  
  41. #define exit_buf u.u_jmp_buf
  42. extern struct ExecBase *SysBase;
  43. /* this just jumps right back into ix_startup() */
  44.  
  45.  
  46. /*
  47.  * Note: I kept the partition into startup and _main(), although in this
  48.  *       case, both functions could be done in one function, since this is
  49.  *       a library, and the user can't override _main anyway but globally...
  50.  */
  51.  
  52. int
  53. ix_startup (char *aline, int alen,
  54.         int expand, char *wb_default_window, u_int main, int *real_errno)
  55. {
  56.   struct Process    *me        = (struct Process *) SysBase->ThisTask;
  57.   int            exit_val;
  58.   struct WBStartup    *wb_msg;
  59.   int            fd;
  60.   /*
  61.    * The following code to reset the fpu might not be necessary, BUT since
  62.    * a CLI shell doesn't spawn a new process when executing a command - it 
  63.    * insteads calls the command like a subroutine - it depends on the Shell
  64.    * whether the fpu is setup correctly. And I don't like to depend on any
  65.    * thing ;-)
  66.    */
  67.  
  68. if(gotanfpu())
  69.     resetfpu();
  70.   /* first deal with WB messages, since those HAVE to be answered properly,
  71.    * even if we should fail later (memory, whatever..) */
  72.  
  73.   if (! me->pr_CLI)
  74.     {
  75.       /* we have been started by Workbench. Get the StartupMsg */
  76.       WaitPort (& me->pr_MsgPort);
  77.       wb_msg = (struct WBStartup *) GetMsg (& me->pr_MsgPort);
  78.       /* further processing in _main () */
  79.     }
  80.   else
  81.     {
  82.       /* for usage by sys_exit() for example */
  83.       KPRINTF (("CLI command line '%s'\n", aline));
  84.       u.u_argline = aline;
  85.       u.u_arglinelen = alen;
  86.     }
  87.  
  88.  
  89.   u.u_expand_cmd_line = expand;
  90.   if (real_errno) u.u_errno = real_errno;
  91.   KPRINTF (("&errno = %lx\n", real_errno));
  92.  
  93.  
  94.   exit_val = setjmp (exit_buf);
  95.   if (! exit_val)
  96.     {
  97.       /* from now on it's safe to allow signals */
  98.       syscall (SYS_sigsetmask, 0);
  99.       /* the first time thru call the program */
  100.       KPRINTF (("calling __main()\n"));
  101.       exit_val = me->pr_CLI ? syscall (SYS__main, aline, alen, main)
  102.                 : syscall (SYS__main, wb_msg, wb_default_window, main);
  103.       KPRINTF (("exit_val = %ld\n", exit_val));
  104.     }
  105.   else
  106.     /* in this case we came from a longjmp-call */
  107.     {
  108.     exit_val --;
  109.     }
  110.   ix_remove_sigwinch ();
  111.  
  112.   /* had to move the closing of files out of ix_close(), as close() may 
  113.      actually wait for the last packet to arrive, and inside ix_close() we're
  114.      inside Forbid, and may thus never wait! */
  115.  
  116.   /* close all files */
  117.   for (fd = 0; fd < NOFILE; fd++) 
  118.     if (u.u_ofile[fd]) syscall (SYS_close, fd);
  119.   /* if at all possible, free memory before entering Forbid ! (Semaphore
  120.      problems..) */
  121.   all_free ();
  122.   /* if started from workbench, Forbid(), since on reply WB will deallocate
  123.    * our task... */
  124.   if (! me->pr_CLI)
  125.     {
  126.       Forbid ();
  127.       ReplyMsg ((struct Message *) wb_msg);
  128.     }
  129.  
  130.   return exit_val;
  131. }
  132.  
  133. void
  134. _exit (int retcode)
  135. {
  136.     longjmp (exit_buf, retcode + 1);
  137. }
  138.